From: Miles Bader Date: Sat, 3 Nov 2001 18:09:33 +0000 (+0000) Subject: (fancy-splash-head): Reapply Gerd's hack to make the shadow of the X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~60952 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e7f3afa945dd7952345c920599527e96b0f8be2f;p=emacs.git (fancy-splash-head): Reapply Gerd's hack to make the shadow of the splash image grey on a dark background instead of black. --- diff --git a/lisp/startup.el b/lisp/startup.el index ea1eabced99..4355d21ee51 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1130,6 +1130,12 @@ where FACE is a valid face specification, as it can be used with (let ((pos (/ (- window-width image-width) 2))) (insert (propertize " " 'display `(space :align-to ,pos)))) + ;; Change the color of the XPM version of the splash image + ;; so that it is visible with a dark frame background. + (when (and (memq 'xpm img) + (eq (frame-parameter nil 'background-mode) 'dark)) + (setq img (append img '(:color-symbols (("#000000" . "gray30")))))) + ;; Insert the image with a help-echo and a keymap. (let ((map (make-sparse-keymap)) (help-echo "mouse-2: browse http://www.gnu.org/"))